10 REM WINDOW SCROLL - COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC.
20 REM REGISTERS: 22,32,33
30 V=49152:S=49664:O=S+82:I=S+161:DF=S+209
40 FORX=828TO852:READD:POKEX,D:NEXT
50 POKES+1,2:SYSI
60 POKEV+18*8,238:POKEV+18*8+1,1
70 POKEV+22*8,200:POKEV+22*8+1,192
80 POKEV+32*8,1:POKEV+32*8+1,1
90 POKEV+33*8,1:POKEV+33*8+1,13
100 SYSS
110 PRINT"[147][144]   NOTICE HOW ONLY THE BOTTOM LINE OF"
120 PRINT"   TEXT SCROLLS.  THE UPPER PORTION"
130 PRINT"   OF THE SCREEN REMAINS STATIONARY!"
140 PRINT"THIS IS A SMOOTH SCROLLING TEXT WINDOW.";
150 FORX=6TO0STEP-1:POKEV+177,(PEEK(V+177)AND248)+X:NEXT
160 SYS828:POKEV+177,199:GOTO150
170 DATA173,18,208,208,251,173,192,7
180 DATA141,232,7,160,0,185,193,7,153
190 DATA192,7,200,192,40,208,245,96